home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Camelot
/
Camelot 075 (1990-05)(Swedish User Group of Amiga)(SE)(PD)[WB].zip
/
Camelot 075 (1990-05)(Swedish User Group of Amiga)(SE)(PD)[WB].adf
/
p2c
/
examples
/
examples.LZH
/
p2crc
< prev
next >
Wrap
Text File
|
1990-05-13
|
822b
|
28 lines
# Configuration options for translating the p2c examples.
Language HP # All programs are in HP Pascal dialect
VarFiles 0 # This helps basic.text's listtokens procedure work
UseEnum 0 # Not necessary except to keep Sun's pitpicking
# compiler happy.
# These kludges will get basic.c to compile without extra runtime support:
# External procedures:
FuncMacro hpm_new(p,n) = (*p = Malloc(n))
FuncMacro hpm_dispose(p,n) = Free(*p)
FuncMacro misc_getioerrmsg(s,io) = sprintf(s, "I/O Error %d", (int)io)
FuncMacro misc_printerror(er,io) = printf("Error %d/%d!\n", (int)er, (int)io)
FuncMacro gotoxy(a,b) = 0
# Functions imported from asm:
FuncMacro asm_iand(a,b) = (a & b)
FuncMacro asm_ior(a,b) = (a | b)
# Functions in basic.text; may as well do these, too:
FuncMacro ixor(a,b) = (a ^ b)
FuncMacro inot(a) = (~a)